Trig Graph  Transformations

Drag

Function  \; undefined

Free Point P

Coordinates

Trig Curve

f(x) = sin(x°)
A = Point(xAxis)
a = 0 (slider from -360 to 360, step 10)
b = 0 (slider from -5 to 5, step 0.1)
p = 1 (slider from -5 to 5, step 0.05)
q = 1 (slider from -5 to 5, step 0.05)
ySign = If(b > 0, " - ", If[b ≟ 0, "", " + "])
xSign = If(a > 0, " - ", If[a ≟ 0, "", " + "])
bAbs = If(b > 0, b, If[b < 0, -b, ""])
aAbs = If(a > 0, a, If[a < 0, -a, ""])
text2: "$ \frac{ y - " + (LaTeX[b]) + "  }{" + (LaTeX[q]) + "} = f\left( \frac{x-" + (LaTeX[a]) + "}{" + (LaTeX[p]) + "}  \right)  $"
g(x) = q * f((x - a) / p) + b
text1: "$ \frac{ y " + (LaTeX[ySign]) + "" + (LaTeX[bAbs]) + " }{" + (LaTeX[q]) + "} = f\left( \frac{x" + (LaTeX[xSign]) + "" + (LaTeX[aAbs]) + "° } {" + (LaTeX[p]) + "}  \right)  $"
text1_1: "$ y " + (LaTeX[ySign]) + "" + (LaTeX[bAbs]) + " = f\left( \frac{x " + (LaTeX[xSign]) + "" + (LaTeX[aAbs]) + "°} {" + (LaTeX[p]) + "}  \right)  $"
text1_2: "$ \frac{ y " + (LaTeX[ySign]) + "" + (LaTeX[bAbs]) + "}{" + (LaTeX[q]) + "} = f\left( x " + (LaTeX[xSign]) + "" + (LaTeX[aAbs]) + "°\right)  $"
P: (x(A), f(x(A)))
text1_3: "$ y " + (LaTeX[ySign]) + "" + (LaTeX[bAbs]) + "= f\left( x" + (LaTeX[xSign]) + "" + (LaTeX[aAbs]) + "°\right)  $"
P': (p * x(A) + a, g(p * x(A) + a))
c = Segment(P, (x(P), 0))
d = Segment(P, (0, y(P)))
e = Segment(P', (x(P'), 0))
h = Segment(P', (0, y(P')))
text3: "x - Translation = " + a + "°"
text4: "y - Translation = " + b + ""
text5: "x - Scale Factor = " + p + ""
text6: "y - Scale Factor = " + q + ""
i = false
xP: x(P)
yP: y(P)
xP': x(P')
yP': y(P')
text7: "P \;= \left(  " + (LaTeX[xP]) + "°," + (LaTeX[yP]) + " \right) "
text8: "$ P'=\left(  " + (LaTeX[xP']) + "°," + (LaTeX[yP']) + " \right)  $"
j = false
inputBox1 = Textfield(f)